#module OptimizationParameters
#    implicit none

nmax <- 10           #    integer, parameter ::
cond <- rep(NA,nmax) #    real, dimension(1:nmax) :: cond ! scaling factors

#end module OptimizationParameters
